#!/usr/bin/perl

use warnings;
use strict;

open (SAMPLE, "sample.file");

foreach (<SAMPLE>) {
    if ( /([a-zA-Z]+) ([a-zA-Z]+):(.*)/ ) {
        printf "%s %s:%s\n", $2, $1, $3;
    }
}

close SAMPLE;
